Dim Report_Names() As String
Dim conn1 As New OleDb.OleDbConnection _
("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;
               password=sa;Initial Catalog=AddressBook;Data Source=lbm1;")
Dim cmd1 As New OleDb.OleDbCommand()
Dim MyReader As OleDb.OleDbDataReader
Dim MyReport As String
Dim AppPath As String = "D:\Temp\"
Dim Total_Records As Integer = 0
